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ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
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MODULE unlock ( IDENT = *v04-000" 
DDRESSING Mone (EXTERNAL = GENERAL), 
= 


$ 1 

; : MAIN = unlock) 

; 4 BEGIN 

. f 1s 

: $ } Tpveaence ese pemyuanipeangraanpenye crores aes 
3 'e . 
3 § 9 1 !* (COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
FH 10 9 1 !* DIGITAL EQUIPMENT 1 CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 i} ; : - ALL RIGHTS RESERVE : 
; ig ig 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gh Lt * 
3 14 14 1 !* ONLY IN ACCORDANCE WITH THE yERns OF wit LICENSE AND WITH THE * 
; 15 15 1 !@ INCLUSION OF THE ABOVE Spd hd NOTICE. THIS sorte WARE OR ANY OTHER * 
4 1$ 1 1 !* COPIES THEREOF my rite BE PROVIDED OR BTWERUIS® MADE AVAILABLE TO ANY * 
: 1 1 1 !® OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i H } :* TRANSFERRED. e 
; 0 0 1 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
4 1 1 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; ¢ ¢ : :* CORPORATION. - 
; & 4 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; é é : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
4 i 

: 8 8 ; SR ITN AT 
; $080 i 1e4 

3 1 09 1 ; : FACILITY: UNLOCK Command 

; j i i ABSTRACT: 

; 5 5 : This utility unlocks files and directories. 

; «37 0037 | ENVIRONMENT : 

: 39 33 1 VAX/VMS operating system. unprivileged user mode, 

; ég ; : AUTHOR: Greg Robert, Nov 1979 

; 4 1! 

: rf : ' : Modified by: 

3 4 git v03-002 AEwO002 Anne £. Warner 28-Feb-1984 

ha 1! Add supper’ for search Lists 

; «648 Be - remove Related File Name “Het from RMS definitions. 

3 $3 3 ' : - add argument to LIBSFILE_SCAN 

; 24 39 1! v03-001 AEWO001 Anne E. Warner 11-0¢t-1983 

3 26 26 ! : Intergrate Command Language Interface (CLI) in program. 

: 54 54 1 v02-005 MLJ0066 in L. Jack, 29-Dec-1981 12:56 

: 5 2? ' Integrate new LIBSUNLOCK FILE {formerly LIBSUNLOCK). 

; 5 2 7! vV204 GRR2004 G. R. Robert 17-Nov-1981 


v203 


v202 


v201 


; Include files 


mt ad ned dd td ed ss td a tt 8 a td 


Se ee Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ft Se Ge Ge FH Se Ge Se Se Gs Ge 
VO 
oOo 


LIBRARY ‘SYSSLIBRARY:STARLET.L32'; 
LIBRARY ‘SYSSLIBRARY:CLIMAC.L32'; 


4 
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Fixed messages to display full filespecs with passwords 
suppressed on errors and logging. 


GRR2003 6- R. Robert 16-Nov-1981 
Made all external references addressing mode general. 
14-Sep-1981 


geneous G. R, Robert 
Fixed noreper descriptor initialization in confirm_action 
by making them OWN instead of LOCAL. 


GRR2001 G. R 12-JUN-1981 


- Robert 
Made UNLOCKDEF .REQ a permanent part of this file 
to clean up the master disk. 


! VAX/VMS common definitions 
' CLI macros 


a as 


K 4 
1eo$ep-i9be $2:i6:66 — LeiUtL’SaeSuncote-B3¢; 


' Common definitions for the UNLOCK command 


a 
s 


DEFINE VMS BLOCK STRUCTURES 


STRUCTURE 
BBLOCK C0. P, S, E; NJ = 
NJ 


(BBLOCK+0)<P,S,E>; 


) Macro to describe a string 
) Macro to generate a quadword string descriptor 
) Macro to generate the address of a string descriptor 


PRIMDESC (str) = ZCHARCOUNT (str), UPLIT (ZASCII str)% 
INITDESC (str) = BBLOCK COSCSC $_6LN) INITIAL (PRIMDESC (str))%, 
ADDRDESC (str) = UPLIT (PRIMDESC™(str))%, 


ow» 


Macro to signal a condition to the handler 


write _message(msg) = 
STGNAL (msg ! Pass the message code 
ZIF ZLENGTH GTR 1 ! and if more than 1 arg 
ZTHEN ,ZREMAINING ZFI) %, ! then the rest too 


SSHR_MESSAGES = a macro which defines facility-specific message codes 
which are based on the system-wide shared message codes. 


SSHR_MESSAGES( name, code, (msg,severity), ... ) 


where: 

*‘name’’ is the name of the fog tt ity (e.g., COPY) 
“code” is the corresponding facility code (e.g., 1 
*‘msg’' is the name of the shared message (e.g., BEG 


“severity” is the desired message severity (e.g., 
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1 
1 
1 
m 01 SSHR MESSAGES( FACILITY_NARE, FACILITY CODE ) = 
i SHRSMSG_IDS( FACILITY_NAME, FACILITY_CODE, %REMAINING ); 3%, 
m 01 SHRSMSG_IDS( FACILITY NAME, FACILITY CODE) C VALUE J = 
SHRSMSG_CALC( FACILITY_NAME, FACTLITY_CODE, %REMOVE(VALUE) ) 3%, 
m 01 SHRSMSG CALC( FACILITY NAME, FACILITY CODE, MSG ID, SEVERITY ) = 
M01 z FACILITY NAME,'S § MSG_ID) = ZNAME(*SARS_",MSG_ID) + FACILITY_CODE*65536 + 
M01 IF ZDECLARED(RNAME ('STSSK ' SEVERITY) 
m 01 ZTHEN ZNAME('STS$K_', SEVERITY) 
1 ZELSE SEVERITY ZFI72; 


ee ee ee ee ee ee ed ed ed od ed ed dd = SS Sd 2 = dD 
. 


ee ek ee ed ad ed ad ot 2 — = a 2 


i 
s 


vuvv 


SGOOOSOSOSOSOSOSSSSOOSCOSCOOSOSCOSOCOOOOOOOOOOOOOOOoOOO 


FALSE 
OK 
ERROR 
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Define message codes. 


Sshr_messages(msg,146 


(not locked info), ! 


File 
(unlocked, info), i File 
Coul 


(searchfail,error), i 


EQUATED SYMBOLS 


VALUES FOR QUALIFIER MASK 


QUAL_LOG = 0, 
QUAL" CONFIRM = 1; 


CLI ROUTINES 


ROUTINE 
SPRESENT, 


L 
CLISGET_VALUE; 


DESC = S$DESCRIPTOR (‘LOG' 
FIRM_DESC = SDESCRIPTOR (‘CONF 


CLI RETURN STATUS CODES 


not locked in the first place 
unlocked 
d not find file 


BOOLEAN TRUE 
BOOLEAN FALSE 
SUCCESS RETURN CODE 
ERROR RETURN CODE 


LOG QUALIFIER 


FOR 
FOR CONFIRM QUALIFIER 


) 
IRM"); 
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CLIUTL.SRCJUNLOCK .B32; 
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i Table of contents 


FORWARD BUT INE 


APU OS 


unlock, ! Main unlock routine 
unlock_action, ' Called for each “unlock action 
— rm sftt on, ! 

Log. results ! Inform user of reauits 
pet. untockals, ' Get ceqnand ay cee rrere 
andler, Condition hand 


! LIBSFILE_SCAN pe handler 


i Interrogate use 
search_error; 


‘ 
External routines 


SSELESLALSLSESELSALAS 


Expands pereetces ascii messages 
i k to SYSSCOMMAND 
on pw gy viidearaien and stickiness 
ocks files 


bsger * command, 
ibs 
LibSunlock_file; 


nm 
RaNS 


RNIN 2 2 
i ec ae ee a ee a ed ae ee ee ee 


pm fo fala fafa fa lo lo lo lololololololololololo lol alo) 
Oo 
RISSSESSPLLLE 
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So 
uw 
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Se Ge Ge Ge Ge Se Se Ge Ge Seas 
rorore 
a 
NOUSWN—O 


1$-$e0-}984 99:82:25 YANctt Bag 32_v4.0-748 


, 3 

} : Storage definitions 

. 

1 unlock$fla : BITVECTORE32] ! General DCL flagword 

1 INITIAL(O), ! Initially none present 

1 qual fiers \ ses : BITVECTORE32] ! Qualifier presence bitmap 
1 INITIAL(O), ! Initially clear 

1 worst_error: BBLOCK(4) ! Worst error encountered 

1 INITIAL (ss$_normal); ! Initially normal status 


vo IE-RgcIRe S:TRRE_— MEU Senta: Bs ree 


; 21 19 1! 

3 1 ! i Define RMS blocks 

; ey! 

7: i jo 

; 5 1 output_nam_result: ' Resultant output name 
3 $ ; VECTOR Cnam$c_maxrss, BYTE), 

; 1 output_nam_expande ! Expanded output name 
8 ¢ : 4 naive tnam$c _maxrss,BYTEJ, 7 * 

; P $ 1 output_nam: ' File name block 

3 § Pp 1 ESA = ste oa expanded, ! File name before open 
3 P ; 1 ESS = nam$c_maxrss, 

; e 1 RSA = output_nam_result, ! File name after open 
3 5 ? : RSS = nam$c_maxrss), 

: P 0 é output_fab: $FAB( ! FAB for output 


| 
| 
NAR = output_nam); ! Address of name block 
| 
| 
| 


< 


5 
WEE, SEepsH9Re QOETGS6E _WREGUE ChscHgath- 8324 ree of 


OCAL 
file.desc : SBBLOCKCDSC$C_S_BLNJ, ! Descriptor for file 
status, ! Status return 

! Sticky context arg. for LIBSFILE_SCAN 


>] 
—-o 


scan_context; 


AA 


BUILTIN 
FP; ! Define register FP 

] 

: Initialize descriptor 


CHS ILL (0,DSC$C_S$_BLN, FILE_DESC); 


MOPIPOPOPONOPONONY 


Soo 


DESC EDSCSB~CCASSS = DSTS$K_CLASS_D; 


C0 CD 
Wnr— 


40 4 ROUTINE unlock = ! unlock Main routine 
rh} 'e¢ 
$7 Functional description 
45 § : This is the main control routine for the unlock command. 
r¢ 4 : It is called from the command Language interpreter to 
re ri : unlock files and directories. 
“3 43 ! Calling sequence 
1 $2 } unlock() from the Command Language Interpreter 
: <3 i Input parameters 
4 $8 ! 
, rh None 
1 i Output parameters 
58 3 Sexeuamghg 
59 5 ! None 
60 54 ! 
o} 2? : Routine value 
es 33 : Worst error encountered during processing or SS$_NORMAL. 
68 5 ji 
66 60 
67 61 
68 $¢ 
69 6 
64 
6g 
8 
9 
0 
4 
8 
9 
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{ 
: Declare signal handler in order to record the most severe 
error message issued, to be returned on exit of image. 
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fp = handler; ! Set condition handler 
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BEGIN 
L 

| 
} 
| 
| 
| 
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<c 


os 


Parse command qualifiers 


47 4F 4C 


P.AAB: 


00 
8 +4 000 3 P.AAA: 
4D 52 49 46 4E 4F 4 Bets P.AAD: 
449 S \ P.AAC: 
sn a pau 
SHG. S852 Pom 


00000000 00000 UNLOCKSFLAGS: 


D5 
a=8epm 1986 92:16:06 EeLTUTL*SneSuncotK:03e; 


get_unlockqls(); ! Get command qualifiers 


91 i Begin the main loop of the program 
, 38 Process each file Gn the input List 
; 301 % 2 
; § 95 scan_context = 0; ! zero sticky context argument 
; pe 3 UNTLE SL ESSET VALUE (SDESCRIPTOR('P1"), FILE_DESC) DO ! For each output file 
; 4] 39 Gutput. tabs fepsi_tne = fitedescdscse_ ointer]; 
3 34 9 output _fablfabSb_fnsJ = .file_descldsc$w_lengthd; 
: 309 030¢ i Call LibSfile_scan to handle wildcarding and stickiness 
; 310 0 ! LibSfile_scan will call unlock_action for each successful 
3 12 0 Be file match and search_error for any failures 
; $1 
; 314 09 Lib$Sfile_scan ( ! Call file scanner with 
3 319 08 output. fab ! «fab address 
i 316 09 unlock-action, i success routine 
3 (BT 10 search_error ! error routine 
; 318 11 scan_context) : watteny context 
; 319 0 \¢ END; ! End of WHILE domain 
: 320 031 
3 1 bate ‘ 
3 § 0315 RETURN .worst_error; 
; oz18 
: 4 031 END; 
TITLE 


be 
-IDENT \V04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE ,2 


eASCII = \LOG\ 
-BLKB 1 
-LONG 3 
»ADDRESS P.AAB 
tt \CONF IRM\ 


-BL 1 

ONG 7 
»ADDRESS P.AAD 
eASCII = \P1\ 
BLKB § 


LONG 
“ADDRESS P.AAF 
.PSECT $OWNS,NOEXE,2 


<c 


5 
ifseo-t96e 9:82:25 yan OL tenc82 4.0274 
00000000 00004 QUALIFIERSF LAGS” 


00000001 00008 VORST_ERROR’” 


LONG 1 
0000C OUTPUT_NAM_RESULT: 
-BCKB 55 


10C OUTPUT_NAM_EXPANDED: 
ittita : i: gD 
02 b030e oUTPUT_NAREN” 
“BYTE 


Y 6 
BYTE 1 


“BYTE 0 
00000000° “ADDRESS OUTPUT _NAM_RESULT 


BC “BYTE 
i! Br 
90000086" “ADDRESS OUTPUT_NAM_EXPANDED 
00000000 :LON 
3s i: 
0008 3 
000000 0 
00000000 
0 
r) 
000000 $ 
00 
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e*eeees 
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So 
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o0900 


ae 


08 00 6E 
07 AE 
0000v CF 


000000006 


00° 
00° 


000000006 00 
50 


3; Routine Size: 86 bytes, Routine Base: 


fF 5 
16-Sep-1984 00:32:25 AX-11 Bliss-32 V4.0-74 
1ersee13Be 99:98:83 | HeRTUT Les ca ove -O5569 
BYTE 
. io 
y ;ADDRESS OUTPUT_NAM 
38 LONG 
& LONG 
A “BYTE 
Al “BYTE 
A WORD 
000090 A LONG 
As WORD 
AB BVTE 
900 00 A “LONG 
00 B LONG 
00 B4 «WORD 
5 BNE 
000000 0288 “LONG 8 
Loar RA DESC Po AAC 
= . 
EX SPRESENT CLISGET VALUE 


RN CLI 
*EXTRN SYSSFAO LIBSGET OMMAND 
“EXTRN LIBSFILE_SCAN, UTSSUNLOFK FILE 


-PSECT SCODES,NOWRT,2 


003¢ 0000 UNLOCK: .WORD Saye R2 R2,R3,R4,R5 
oc g 9002 SUBL 
- ¢ C tH movcS #0, (ap), #0, #8, FILE_DESC 
05 90 0000¢ MOVB #2. FILE_DESC+3 
0000v CF 9E 00 19 MOVAB HANDLER, ~ (FP) 
00 FB 0 1 CALLS GET UNL OCKaLS 
6E 04 OOO1A CLAL #0, Get 
04 AE 9F OOOIC 1S: PUSHAB FILE~ bE paren 
0000" CF 9F OOO1F PUSHAB P.AAE 
3 FB 0023 CALLS 3, SLISGET_ VALUE 
E9 0002A BLBC : 
08 AE BO 0 MOVL FILE_DESC+4, OUTPUT FABS44 
AE MOVE  FILE-DESC, OuTPUT_FAB+5S2 
SE 0D PUSHL SP 
00 v CF OF PUSHAB SEARCH_ERROR 
v CF OF F PUSHAB UNLOCK~ =ACT 
000° cr F 43 PUSHAB OUTPUT ~FAB 
4 re 4 CALLS #4, LIBSFILE_SCAN 
cc 1 4 BRB 1$° 
0000" CF Bd 3 28: MOVL §§ WORST_ERROR, RO 
4 000 RET 


SCODES + 0000 


rom 


wee 


aa 


PPP 


1Sseo-1964 99:82:25 


CLIUTL.SRCJUNLOCK B32; 


ROUTINE unlock action (fab) = 


: Functional description 


‘ This routine is called from Lib$Sfile_scan whenever 
@ successsful file match occurs 
Input parameters 
: fab = Address of block describing the file 
: fab$l_nam = pointer to name bloc 
; Output parameters 
i None 
' 
leone 
BEGIN 
MAP fab: REF BBLOCK; ! Define fab yr format 
BIND nam = .fablfab$l_nam): BBLOCK; i Define name bloc 
LOCAL desc: VECTOR(2); ! Temporary string descriptor 
LOCAL status; ! Receives status 
! 
! If /CONFIRM was set by the user then interrogate him to see if 
: this file is to be unlocked 
FF 5 Sat IE tarStlagelquat_contirad? ! If confirmation requested 
IF NOT (confirm_action ( ! Call confirmation rout. with 
-fa ! eaddress of fab 
THEN return(false); ' If not confirmed then exit 


Now load the local descriptor with the file name size and address 
from the nam block 


desct0} = -nam(nam$b_rsl); ' Resultant file name size 
desc! -nam(nam$l"rsa ' Resultant file name address 
IF .nam irene. rst) EQL . ! If the resultant name is null 
THEN oe ' then use the expanded name: 
EO} = -nam(nam$b ~o3!}3 ' expanded file name size 
desc -namLnam$\"esa : expanded file name +S 


' 
: Call LIBSUNLOCK_FILE to unlock the file 


AX-11 Bliss-32 V4. Baetg 


ee ae 


5 
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ft wor (status = LibSunlock_file(desc)) ! Call unlock with file name 


a 
s 


BEGIN 
m3 message(.status); ' Inform the user 
recurh(.ste us); ' Return to caller 


i Check to see if unlock worked. SSS_WASSET indicates the file 
i was unlocked. SS$_WASCLR indicates the file was already unlocked 
: and no other error occurred 


If *gopecus EQL SS$_WASC.R) ! If file not locked 


Se Se Ge Se Se Se Ge Se Ge Ge Ge Se Ge Se Se Ge Se Ge Ge Ge Se Se Se Ge Ge Ge Se ese 


Pp urnee posceges ! Tell the user 
4 P msgs_not locked, ! that the file wasn't locked 
4 P » : (one FAO arguement), 
4 desc) ! and name the file 
404 ss ( Lifier$flagsCqual_log]) iret 991 pred d 

-qua er$flags(Cqual_lo : ogging requeste 

ree THEN Tos. results ( tab); . : then salt the logger 
toe RETURN( true); ! Both returns above 
+38 ! =are ok! 
4 
410 END; 


001¢ 00000 UNLOCK_ACTION: 
.WORD Save R2,R3,R4 


4 000000006 99 MOV LIBSSIGNAL, R4 
8 ¢ SUBL2 #8, SP 
9 AC D MOVL FAB, R3 
8 ad D MOVL  40(R3), R2 
0000" CF : Et BBC #1, QUALIFIERSFLAGS, 1$ 
0000v CF iF CALLS #1, CONFIRM_ACTION 
ff GAS fh: £2 
bE 3 A2 9A MOVZBL 3h ), DESC 
04 AE 4 A MOVL (R2), DESC+4 
3 OA TSTB (R2) 
6E g 9A AOV ZBL te », DESC 
06 AE 2 AS D0 MOVL 13¢R3>" DESC +4 
: DD PUSHL SP 
000000006 F CALLS #1, LIBSUNLOCK_FILE 
D mMOVL RO STATUS 
3 BLBS STATUS, 
DD PUSHL STATUS 
64 FB CALLS #71 LIBSS1GNAL 
0 2 VL STATUS, R 
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ans. #1 
$P 
#1 

573043 
#3, LIBSSIGNAL 
QUALIFIERSFLAGS, 5$ 
RS 


#1, LOG_RESULTS 
#1, RO 


RO 
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ROUTINE confirm_action (fab) = 


t 
' Functional description 


a a a 


NOMEN (OO OONOUE wiry 


This routine is called from the main loop whenever 
confirmation is requested. 


fab = Address of block describi 
fabSi_nam = pointer to name blo 


Output parameters 


ng the file 


a He ss 


MEUM" O OONAUFSWUN “OVOOVOvl 


TRUE ==> Action should be taken 
FALSE ==> Action should be cancelled 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
MAP fab: REF BBLOCK; ! Define fab block format 
BIND nam = .fablfab$l_nam): BBLOCK; i Define name block 


MEwn— 
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44 file.desc: B8BLOCK(Cdsc$c_s_bin], ! file_descriptor for file name 
44 fao desc: BBLOCKEdsc$c_s_binJ, ! FAO work area descriptor 

44 reply_desc: BBLOCKEdsc$c_s_bin ! Buffer desc. for reply 

a INITIA 

444 WORD ° ! size = 0 

445 BYTE (dsc$k_dtype_t), ! -arguement type = ascii 

44 BYTE tdscSk.classd), ! class = dynamic 

44 LONG (0)); ! pointer = 0 

G& LOCAL 


Recieves status 

Length of resultant message 
Character work area 

FAO work area 


status: BLOCKC1), 
length : WORD, 


char 
fao_buffer: VECTOR(512,BYTE); 


SRL LELESE 
OOONOULS WOO 


descriptors with: 
le name --> file_desc 
O buffer <--> fao_desc 


WA Be 


ot 


fi e.deschdsc$u_ length) = .namCnam$b_rsl); ' Resultant file name Length 
file _descldsc$a_pointer) = .namCnam$l_rsal; ! Resultant file name address 
IF .namCnam$b_rsl) EQL 0 ! If no resultant name 
THEN BEGIN ' then use expanded name: 
file_desc(dsc$w_length] = .nam{nam$b_esl); ! 
ioe dsc$a_pointer] = -namCnam$l_esad; 


expanded file name length 
expanded file name address 
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feo.descidsc$u_ length) = 512; 
fao_descldsc$a_pointer] = fao_buffer; 


! 
; Now call SYSSFAO to expand message 


IF NOT (status = SYSSFAO ( 


1$-$60-1984 00:32:28 


5 
AX-11 blog ze ee et et 
CLIUTL.SRCJUNLOCK .B32; 


AO work area size 


' Ff 
! FAO work area address 


' Call system service with 


anepengee desc. address 


addrdesc("!AS, unlock? (¥ or N): 
length, ' 


fao_desc, i 
file_desc)) : 


BEGIN 
write_message (.status); 
return (.status); 


of the call as a prompt string 


“place to put result Length 
auesee igter of a work area 
“one FAO arguement 


' Tell the user 
! Return to the caller 


] 
: Now puogsten user by calling LIGSGET_ COMMAND using the result 
i 


fao_desc(dsc$w_length] = .length; ! 
If NOT (status = LIBSGET_COMMAND ( : 
reply_desc, H 
fao_desc)) ; 


THEN 


IF (.status EQL rms$_eof) 
THEN status(sts$v_severity] = 
sts$k_severe; 
write_message (.status); 

return (.status); 


status depending on its value 


Move in prompt string size 


Call library routine with 
-reply buffer desc. addr. 
“prompt string desc. addr. 


If this was end of file then 
make it a severe (i.e. non- 
returnable) error 

Tell the user 

Return to the caller 


q 
: Now retrieve one charater from the buffer and set the return 
i 


IF (.reply_desclCdsc$w_length) EQL 0) : 
THEN return (false); : 


Did user hit <CR>? 
Yes, return false 


char = CHSRCHAR (CHSPTR (.reply_desc(dsc$a_pointer))); 


IF (.char EQL ‘Y* OR ; 


R ! 
char EQL ‘T° OR ! 
char EQL ‘t*) ! 

THEN return (true) ‘ 
ELSE return (false); ! 


If user responded *y' 
or 
or 'T* (TRUE) 


or 
Return ‘TAKE ACTION’ 
Return ‘CANCEL ACTION’ 


52 


0517 1 END; 


59 28 20 SF 68 63 4 +3 g 


03 


000000006 


000000006 


0001827A 


E 75 20 
A 29 4E 


PPV" 


>or> 
WW UWoomw 


Arne 
UWINOS 
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03 
00000000 00200 


08 


41 


Opes 
stout Se 
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000 od2cc 
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000C 00000 


9E 0000 
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MOV OVIMNOS FWMNOM SAINI OW MOLOO 


ibe 


w$p-1984 19:10:66 


«PSECT $PLIT$,NOWRT,NOEXE,2 
P.AAH: .ASCII \!IAS, unlock? (Y or N): 
P.AAG: .LONG 23 
-ADDRESS P.AAH 
-PSECT SOWNS,NOEXE,2 
FILE_DESC: 
-BLKB 8 
FAO_DESC: 
.BLKB 8 
REPLY_DESC: 
“WORD 0 
; 14 
“BYTE é 
LONG 
«PSECT S$CODES$,NOWRT,2 
CONF IRM_ACTION: 
-WORD Save R2,R3 
MOVAB FAO DESC, R3 
MOV -518(SP), SP 
MOVL FAB, RO 
MOVL 40(RO), RO 
MOVZBW (RO), FILE_DESC 
MOVL  4(RO), FILEDESC+4 
TSTB = 3(RO) 
BNEQ = 1$ 
MOVZBW 11(RO), FILE_DESC 
MOVL VeRO) FILE~DESC+4 
1$: MOVW #512, FAO DESC 
MOVAB FAO BUFFER, FAO_DESC+4 
PUSHAB FALE _DESC 
PUSHL R 
SHAB LENGTH 
PUSHAB P.AAG 
CALLS #4, SYSSFAO 
VL RO, STATUS 
BLBC STATUS, 2$ 
VW _ FAO_DESC 
SHL 
PUSHAB REPLY D Bist 
CALLS #2, LTB GET _ COMMAND 
BLBS = STAT ose at 
CMPL TATUS. #98938 
BNEG $ 


CLIUTL.SRC 


#4, #0, #3, STATUS 


AXx-11 Oh hegre oles o35 


\<0> 


321 


vOo~600 


3; Routine Size: 


180 bytes, 


000000006 8 


00000059 
00000079 
00000054 
00000074 


Routine Base: 


ar 
8F 
8F 
8F 
50 


mow 


08 
oc 


—FODCOKNOTOWOW wT 


OOMOU NOP 
BE RON WWW FB WN FOODS 


Se ad 
oO 
ovu00 -$9°0 90 90 “90 0-"TOU "DS 


SCODES + 0000 


ri 


a 5 
“Se 
14-Se 


3 1986 19:16:66 


AX-11 Bliss-32 V4.0-74 ag 
CLIUTL.SRCJUNLOCK B32; 


$A TU 
sratb 
REPLY DESC 
@REPLY_DESC+4, CHAR 
CHAR, 785 


Lies oNAL 


CHAR, #121 
CHAR, #84 
HAR, #116 

#1, RO 

RO 


. 

* 
g 3 
ec 


} 
| 


a 
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j 


ee 
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MEW —OO®w 
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ROUTINE log_results (fab) = 


1 
' Functional description 


w$ep-19ee 1:16:66 EetTUTL SR 


8 the file 


| 

: This routine is called from the main loop whenever 
} logging is requested 

Input parameters 

i fab = Address 9' block describin 

; fab$l_nam = poiiter to name bloc 

! Output parameters 

None 

i a ae 


BEGIN 
MAP fab: REF BBLOCK; 


BIND nam = .fablfab$l_nam): BBLOCK; 


LOCAL desc: VECTOR(2); 


IF .namCnam$b_rsl) NEQ 0 
THEN B 


END 
ELSE IF .nam{Cnam$b_esl] NEQ 0 
THEN BEGIN 


desc(0] = .nam(nam$b_esl); 
desc(1) = .nam(nam$l_esaJ; 


desc 
desc 
END; 


N 
ELSE ese(0 
1 


write_messogetnseS_uniocked. 
desc); 

RETURN (true); 

END; 


5E 


EGIN 
desc 03 = .nam(nam$b_rslJ; 
desclij = .nam(nam$l_rsaJ; 


9 = .fabCfab$b_fns); 
= .fablfab$l_fnal; 


Define fab block format 
Define name block 


Temporary string descriptor 
IF result string nonblank, 
then display it 


Or if expanded name nonbLank 
then display it 


Otherwise, use original 
name string in FAB 


Inform the user 
With one arguement 
Which is the file name 


0000 00000 LOG_RESULTS: 


-WOR Save nothing 
SUBL #8, SP 


6 
uM ofK, 1$-sep-1964 00:42:25 YAK=t1 BLisg-52 40-74 


om Xe © be 


ao MO 
oa | oe 


00921298 


Comoe roreo>— 


vacate movL AT, 


; Routine Size: 75 bytes, Routine Base: S$CODES + 0184 


eee 


a2 
s 


aa 


6 i 
1b-5¢ “19 :25 -YAK=11 BLis$-32_V4.0-76 Page 21. 
1ex8eh-19be $3:18:06 — Fekiute°sreSuncote oso; 29°43), 


000C 00000 GET_UNLOCKQLS: 
ORD 


; ae 67 } ROUTINE get_unlockqls = | 
| puso | 
; 581 : ii : 
; ¢ 1 Functional description | : 
; 73 1: This routine calls CY to obtain the command Line and F 
; 585 i then all command qualifiers. : 
3 : ; 
: ug : Input parameters | 
. t . 
me yi a 
: 4 2 , ; Output parameters : 
3 38 : ¢ : qualifier$flags = Bitmap indicating which qualifiers are present : 
i BB apee | | 
; 39 0986 2 BEGIN ; 
: 385 0383 5 : | 
; o90 B258 Initialize mask holding qualifier option bits | ; 
; 60¢ 0591 2 qualifier$flags = 0; : 
Be B bale | 
; one 0394 Look for qualifiers and set bits accordingly : 
3 607 0596 if CLISPRESENT (log_desc) : 
3 609 0998 qualifier$flags Cqual_log) = 1; F 
; 61) 0600 IF CLISPRESENT (confirm desc) : 
; eis a4 qualifier$flags Cqual_confirm] = 1; ; 
: 615 04 return true; : 
3; 616 0605 ND; : 


. Save R2,R3 3; 0567 
53 0000" CF 9€ 0000 MOVAB QUALIFIERSFLAGS, R3 : 
52 000000006 09 9—€ 0000 MOVAB CLISPRESENT, R2 : 
& ps 000 CLRL QUALIF IERSFLAGS : 0591 
0000" CF 9F 0001 PUSHAB LOG_DESC : 0596 
62 1 FB 0014 CALLS #1, CLISPRESENT : 
0 0 17 BLBC RO, ; 
63 01 88 0 1A BISB2 #1. QUALIFIERSFLAGS : 0598 
0000" CF 9F 0001D 1$: USHAB CONFIRM DESC > 0600 
é 1 re 0 1 CALLS #1, CLISPRESENT : 
9 . 4 BLBC RQ. : 
6 8 00027 BISB2 #2. QUALIFIERSFLAGS > 0602 


6 
UM ofK 1$-Sep-1964 00:42:25 YaK=tt BLieg-52 4.0274 Page 22 
50 01 B° ft 23: poy #1, RO : veg: 


; Routine Size: 46 bytes, Routine Base: SCODES + OICF 


} 
—E SSS 


. 
a i 
: 6 1 

3 6 14 
if i 
. i 
: 6 i 
; 6 0 
i 8 
; 6 et 
3; 6 624 
2 $658 
: 639 06 $ 
; 640 06 $ 
: 641 06 

: ote 0630 
; po 0631 
+ 645 be § 
: o*6 06 

: pot 0635 
> 649 be $ 
; 650 0638 
3; 651 0639 
3 638 0640 
3 65 0641 
3; 654 0642 

51 0000° 
51 
0000" 


3; Routine Size: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
MAP 
1 


40 bytes, 


Inputs: 


Outputs: 


BEGIN 


signal_args: REF BBLOCK 


mechanism_args: 


LOCAL 
code: BBLOCK CLONG); 


REF BBLOCK; 


code = .signal_args (Cchf$l_sig_name); 


ss$_resignal 
END; 


84 


10009998 
091 


Routine Base: 


SCODES + O1FD 


ooooooooo 


SCoooooooo 
Sooooooeooo 


SNS 


mn —S 


SMOO—> 


ifs 


ROUTINE handler (signal_args, mechanism_args) = 


to be returned by exit from the image. 


worst_error = .code OR sts$m_inhib_msg; 


6 
e 
ep-1 


i 
i 
i 
i 
i 
i 
: signal_args = Address of signal argument List 
] 
i 
i 
i 
i 
i 


be 19:16:68 


AX-11 


Oh fagr se V4.0-74 
CLIUTL.SRC 


UNLOCK .B32; 


This condition handler gets control on any signalled 
condition in order to save the highest severity error 


mechanism_args = Address of mechanism argument List 


worst_error is updated with highest severity error. 


! Adr of signal arg List 
! Adr of mech. arg List 


! Condition code (longword) 


' Get condition code 


fF zcete Csts$v_severity] GIR .worst_error (sts$v_severity] 


! Set new worst error 


! Continue signalling 


HANDLER: .WORD 
MOVL 


=" 
bod 


Save nothing 

SIGNAL_ARGS, RO 

4(RO) , “CODE 

#0. as, WORST_ERROR, R1 

+f ue 7 CODE, R1 

4368435456, CODE, WORST_ERROR 
#2328, RO 


a = a . + 


F 6 
eet re Pa CT Pietra ae Cee Page 424. 


a 
s 


ROUTINE search_error (fab) = 


' Functional description 


SERSESES 


ARCH_ERROR: 
0004 00000 SEARCHERROR: 5 0643 
SueL2 #8, SP 


' | 

3 4 

3 1 

3 1 

} | 

; . 1! This routine is called from RMS whenever an error 

; : : occurs during an RMS file function call. 

3; 665 bog i Input parameters | 

; $67 554 1 | fab = Address of block used in the RMS call. | 

: ; H fab$l_nam = pointer to name block 

; ero a7 i Output parameters 

; 678 659 1 | None 

; 67 660 1! 

3 674 ale 4 leoce 

; 675 562 1 

i 676 : BEGIN | 

: 678 MAP fab: REF BBLOCK ' Define fab block format 

3 679 b6 BIND nam = .fabl abst _nam): BBLOCK; i Define name block 

3 gat 0668 LOCAL desc: VECTOR(2); ! Temporary string descriptor 

3 rei ‘sth THe BEGIN rst] NEQ 0 ! IF result string nonblank, 

; eB 0672 sect: -nam(nam$b_rsl); ' then display it 

5 O36 067 desc(1 -nam(nam$\_rsa 

; 68 0674 

3 ose Bor? Fise Ten -nam(nam$b_esl) NEQ . ! Or if expanded name nonblank 

; 690 3 ER : -nam(nam$b tt ! then display it 

; 691 78 desc! -namCnam$l_esa 

; 69 79 

; 69 evse’ BEG 

3 694 1 desc 0} -fabCfab$b_fns); ! Otherwise, use original 

; 695 ¢ descl! - fablfab$l—fna); ! mame string in FAB 

: 698 END; 

: 698 P 5 write ~message (msgs - 4 ercofetl.} DESC, ! Output an error message 

; +44 P Hy ts] ! with fab error code 

3 700 feb fabsté “Sty 5; i and secondary code 

; 70 9 RETURN (.fabCfab$l_sts]); ! Pass along the error 

; 70 sey | 

3; 7046 91 END; 
| 
| 
| 
| 
| 


08 C2 00002 


voL~600 esos QO8:88 YAGUN YY esa 
8638 0 Etuoon 


<3 


«EXTRN LIBSSIGNAL 


; PSECT SUMMARY 
; Name Bytes Attributes 
; 118 2 WOVEC NOURT, RD .NOEXE.WOSHR, LCL, REL, CON.NOPIC.ALIGN(2) 
$ 7 NOV a WRT, — SHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 CODES 6 NOVEC, NOWRT; RD x MOSH LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
3 eseccess SyEbel§ ecccecce Pages Processing 
3 File Total Loaded Percent Mapped Time 
3 _$25S$DUA28:(SYSLIBISTARLET.L32;1 9776 51 0 581 00:00.9 
3 miiitinyy Metter CLIMAC.L 3 14 0 0 o 00:00.1 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:UNLOCK/OBJ=OBJ$:UNLOCK MSRC$:UNLOCK/UPDATE=(ENHS$: UNLOCK) 
3 Size: 630 ode + 796 data bytes 
; lhe Me ih 
3 Lines/CPU Min: #9" 
: Lexemes/CPU-Min: 25861 
ry Used: 129 pages 


; Memo 7 
3 > Compitation Complete 


Page 485 
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